If N=5 And D=1001:Then 4 A 4 O 9 B For 1 P To 2 Prog "SEPHIROT" Next Return IfEnd 0=X Int (Ran#x2+1) O Getkey=25 12 O If O=1:Then F-Line 5,12,30,12 F-Line 30,12,27,17 F-Line 27,17,23,37 F-Line 15,37,13,29 F-Line 13,29,10,18 F-Line 10,18,7,14 F-Line 7,14,5,12 PlotOn 17,32 PlotOn 22,32 F-Line 22,35,26,40 F-Line 17,35,13,40 F-Line 21,35,19,45 F-Line 17,35,19,45 IfEnd If O=2:Then F-Line A+5,B+20,A+30,B+20 F-Line A+30,B+20,A+19,B+45 F-Line A+19,B+45,A+5,B+20 PlotOn A+18,B+38 PlotOn A+20,B+38 IfEnd If O=12:Then Circle 15,29,7 F-Line 15,36,35,47 F-Line 23,29,35,40 F-Line 35,47,35,40 F-Line 35,40,40,44 F-Line 40,44,35,47
|